﻿Public Class PopupHelper
    Dim uc As New UserControl()
    Dim title As String = ""
    Public Sub New(ByVal Ctrl As UserControl, ByVal Title As String)
        InitializeComponent()
        uc = Ctrl
    End Sub
    Private Sub PopupHelper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KryptonPanel1.Controls.Add(uc)
        Me.Text = title
    End Sub
End Class